home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / wais / ui / screen-ui.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-09  |  50.2 KB  |  1,935 lines
  1. /* WIDE AREA INFORMATION SERVER SOFTWARE:
  2.    No guarantees or restrictions.  See the readme file for the full standard
  3.    disclaimer.
  4. */
  5.  
  6. /* This is a simple screen user interface for making WAIS queries
  7.  * It is the strange offspring of waisq and curses..
  8.  *
  9.  * Revision 1.2 initial version by jcurran@nnsc.nsf.net 
  10.  *   (dedicated to Suzi, Alex, et. al.)          
  11.  *
  12.  * Revision 1.5 changes 12/91 by datta@cs.uwp.edu
  13.  *
  14.  *   added page up/down 'J/K'
  15.  *   screen state now returns to normal after piping commands
  16.  *   added mail 'm' option 
  17.  *   fixed number entry on source selection to allow for up to MAXINT sources
  18.  *   there is now a pause after viewing a document so if the pager is 'more'
  19.  *         the user will not miss the last screen.
  20.  *
  21.  * Revision 1.6 changes 01/92 by jcurran@nnsc.nsf.net
  22.  *
  23.  *   fixed common_wais_dir on help message
  24.  *   change default common dir to /usr/lib/wais-sources
  25.  *   fix formatting for >99 sources
  26.  *   add ^v aliases for page down, <esc>v for page up
  27.  *   add "/" (find) to find source
  28.  *   add "/" (find) to find result
  29.  *   simplify <return> processing for users
  30.  *   changed the view source information to pipe through $PAGER or 'more'
  31.  *         to allow the use of source descriptions larger than 1 screen.
  32.  *         (done by datta@cs.uwp.edu)
  33.  * 
  34.  * Revision 1.7 changes 01/92 by jcurran@nnsc.nsf.net
  35.  *
  36.  *   fixed miscellaneous selection bugs
  37.  *   added option processing and option screen
  38.  *
  39.  *
  40.  * Notes:
  41.  *   If there are ever more than 999 sources screen display will need
  42.  *       changes.
  43.  *
  44.  *   The use of mvprintw() is dangerous unless there is window bounds
  45.  *       checking. The curses with ULTRIX 4.2, BSD 4.3 and BSD 4.3 reno
  46.  *       have unpredictable results when the window size is exceeded.
  47.  *       Keep this in mind for further enhancements.
  48.  *
  49.  *   The ULTRIX curses.h may be missing some entries and may require
  50.  *       updating. If so, add a DEFINE ULTRIX when you compile
  51.  *
  52.  */
  53.  
  54. #include <curses.h>
  55. #include <signal.h>
  56. #include <setjmp.h>
  57. #include <ctype.h>
  58. #include <ui.h>
  59. #include <sockets.h>
  60. #include <sys/types.h>
  61. #include <netinet/in.h>
  62.  
  63. #if (defined(ULTRIX) || defined(ultrix))
  64. /*
  65.  * ULTRIX 4.2 curses.h is missing these entries
  66.  */
  67. #define    erasechar()    (_tty.sg_erase)
  68. #define    killchar()    (_tty.sg_kill)
  69. #endif /* def ULTRIX */
  70.  
  71. #define STRINGSIZE    256
  72.  
  73. #include "wais.h"
  74. #define MAIN
  75. #include "globals.h"
  76.  
  77. #define    WAIS_SERVICE    "z39_50"
  78.  
  79. #define WAISSCREEN_NAME     "SWAIS"
  80. #define WAISSCREEN_VERSION  "$Revision: 1.10 $"
  81. #define WAISSCREEN_AUTHOR   "John Curran (jcurran@nnsc.nsf.net)"
  82.  
  83. #ifndef COMMON_SOURCE_DIR
  84. #define COMMON_SOURCE_DIR "/usr/lib/wais-sources"
  85. #endif
  86.  
  87. /* SWAIS PROGRAM STATES - each decade shares common screen (0-9, 10-19, etc) */
  88. #define    UNKNOWN            0
  89. #define    GETSOURCES    10
  90. #define    GETKEYWORDS    11
  91. #define    MAKEQUERY    12
  92. #define    SHOWRESULTS    20
  93. #define    GETOPTIONS    30
  94. #define    LEAVEPROGRAM    90
  95.  
  96. typedef int programstate;
  97.  
  98. /* SWAIS OPTION TYPES */
  99. #define    OPTION_BOOLEAN    0
  100. #define OPTION_INTEGER    1
  101. #define    OPTION_STRING    2
  102.  
  103. typedef struct option {
  104.   char name[STRINGSIZE];
  105.   char desc[STRINGSIZE];
  106.   int  type;
  107.   void (* update)();
  108.   union {
  109.     int*  intptr;
  110.     char* charptr;
  111.   } var;
  112. } _Option, *Option;
  113.  
  114. /* options */
  115. #define MAXOPTIONS 6
  116. int  option_widetitles=FALSE;
  117. int  option_sortsources=TRUE;
  118. #if 0
  119. int  option_pagerpause=TRUE;
  120. #else
  121. int  option_pagerpause=FALSE;
  122. #endif
  123.  
  124. _Option options[MAXOPTIONS+1];
  125.             
  126. char* log_file_name = NULL;
  127. FILE* logfile = NULL;
  128. programstate state;
  129. programstate new_state;
  130. jmp_buf main_env;
  131. char keywords[STRINGSIZE];
  132. SList Selected_Sources;
  133. char command[STRINGSIZE];
  134. char *sdir, *cdir;
  135.  
  136. #define MAXSELECTIONS 500
  137. #define NOSELECTION -999999
  138. char select_line[MAXSELECTIONS][STRINGSIZE];
  139. int  selection; /* 1 to max_selection */
  140. int  max_selection; /* limit on selection */
  141. int  current_page; /* 0 to needed pages; preset to -1 to force refresh */
  142. int  page_length; /* number of selections per page */
  143.  
  144. /* routine specific selection number */
  145. int source_selection=1;
  146. int result_selection=1;
  147. int option_selection=1;
  148.  
  149. extern unsigned int sleep _AP((unsigned int seconds));
  150.  
  151. void SortSources()
  152. {
  153.   Boolean Changed = TRUE;
  154.   Source s;
  155.   SList sl;
  156.  
  157.   while(Changed) {
  158.     Changed = FALSE;
  159.     for(sl = Sources; sl->nextSource != NULL; sl = sl->nextSource) {
  160.       if(sl->nextSource->thisSource->name == NULL) {
  161.     Changed = TRUE;
  162.     sl->nextSource = sl->nextSource->nextSource;
  163.       }
  164.       else
  165.     if(0 < strcasecmp(sl->thisSource->name, sl->nextSource->thisSource->name)) {
  166.       Changed = TRUE;
  167.       s = sl->thisSource;
  168.       sl->thisSource = sl->nextSource->thisSource;
  169.       sl->nextSource->thisSource = s;
  170.     }
  171.     }
  172.   }
  173. }
  174.  
  175. void screenend() {
  176.     signal(SIGINT,SIG_IGN);
  177.     clear();
  178.     refresh();
  179.     endwin();
  180.     echo();
  181. }
  182.  
  183. void startover() {
  184.         longjmp(main_env,1);
  185. }
  186.  
  187. void screenstart() {
  188.     static int init;
  189.     if (!init) {
  190.       initscr();
  191.       init=1;
  192.     } else {
  193. /*    wrefresh(); Maybye they meant refresh... yeah, thats it...
  194.             andyj */
  195.     refresh();
  196.     }
  197.       cbreak();
  198.       noecho();
  199.       leaveok(stdscr,FALSE);
  200.       signal(SIGINT,startover);
  201. }
  202.  
  203. void
  204. display_context(context)
  205. char    *context;
  206. {
  207.   mvprintw(LINES-3,0,context);
  208.   clrtoeol();
  209.   refresh();
  210. }
  211.  
  212. void
  213. display_prompt(prompt)
  214. char    *prompt;
  215. {
  216.   mvprintw(LINES-1,0,prompt);
  217.   clrtoeol();
  218.   refresh();
  219. }
  220.  
  221. void
  222. display_highlighted(str)
  223. char    *str;
  224. {
  225.   standout(); 
  226.   mvprintw(LINES-1,0,str);
  227.   standend();
  228.   printw(" ");
  229.   clrtoeol();
  230.   refresh();
  231. }
  232.  
  233. void
  234. PrintStatus(str)
  235. char *str;
  236. {
  237.    if (stdscr!=NULL) {
  238.      display_highlighted(str);
  239.      sleep(2);
  240.    }
  241.    else
  242.      fprintf(stderr,"%s\n",str);
  243. }
  244.  
  245. char *
  246. firstphrase(str)
  247. char *str;
  248. {
  249.   char *res;
  250.   int  n;
  251.  
  252.   res = str;
  253.   if ((n=strcspn(str," "))!=0)
  254.     if ((n>4) && (str[n-4]=='.')) {
  255.  
  256.     n = n - 4;
  257.     res = s_malloc(n+1);
  258.     strncpy(res,str,n);
  259.   }
  260.   return res;
  261. }
  262.  
  263. void
  264. format_option(str,opt)
  265. char *str;
  266. Option opt;
  267. {
  268.   switch (opt->type) {  
  269.     case OPTION_STRING: sprintf(str,"%s",  (opt->var.charptr) );
  270.              break;
  271.     case OPTION_INTEGER: sprintf(str,"%d", * (opt->var.intptr) );
  272.              break;
  273.     case OPTION_BOOLEAN: if (* (opt->var.intptr) == TRUE)
  274.                 sprintf(str,"on");
  275.               else
  276.                 sprintf(str,"off");
  277.              break;
  278.   }
  279. }
  280.  
  281. jmp_buf local_env;
  282.  
  283. char fpath[STRINGSIZE];
  284. void
  285. start_use(fd)
  286. FILE **fd;
  287. {
  288.   *fd = fopen(fpath,"w+");
  289. }
  290. void
  291. end_use(fd)
  292. FILE **fd;
  293. {
  294.   fclose(*fd);
  295. }
  296.  
  297. void
  298. null()
  299. {
  300. }
  301.  
  302. void
  303. Refresh_sources()
  304. {
  305.     FreeSources(Sources);
  306.     Sources = NULL;
  307.     ReadSourceDirectory(sdir,TRUE);
  308.     ReadSourceDirectory(cdir,TRUE);
  309.     if (NumSources == 0) {
  310.       PrintStatus("Error: Unable to find any WAIS information sources.");
  311.       exit(-1);
  312.     }
  313.     if (option_sortsources==TRUE) SortSources();
  314. }
  315.  
  316. void
  317. UseWaisDocument(q, doc)
  318. Question q;
  319. DocumentID doc;
  320. {
  321.   char message[STRINGSIZE];
  322.  
  323.   if (strcmp(doc->doc->type, "WSRC")) {
  324.     fprintf(stderr, "%s", "%s is not a WAIS source.  You can only USE WAIS sources.",
  325.           firstphrase(trim_junk(doc->doc->headline)));
  326.     /* PrintStatus("%s is not a WAIS source.  You can only USE WAIS sources.",
  327.         firstphrase(trim_junk(doc->doc->headline))); */
  328.   }
  329.   else {
  330.     sprintf(message,"Retrieving: %s\n", firstphrase(trim_junk(doc->doc->headline)));
  331.     PrintStatus(message);
  332.  
  333.     sprintf(fpath,"%s%s.src", sdir, firstphrase(trim_junk(doc->doc->headline)));
  334.     RetrieveWaisDocument(start_use, end_use, q, doc);
  335.  
  336.     sprintf(message,"Adding Source: %s\n", firstphrase(trim_junk(doc->doc->headline)));
  337.     PrintStatus(message);
  338.     Refresh_sources();
  339.   }
  340. } 
  341.  
  342.  
  343. jmp_buf local_env;
  344.  
  345. void screen_catchpipe(sig, code, scp, addr)
  346.           int sig, code;
  347.           struct sigcontext *scp;
  348.           char *addr;
  349. {
  350.    longjmp(local_env,1);
  351. }
  352.  
  353. char pipe_cmd[STRINGSIZE];
  354.  
  355. void
  356. start_pipe(pipefd)
  357. FILE **pipefd;
  358. {
  359.   screenend();
  360.   *pipefd = popen(pipe_cmd,"w");
  361. }
  362. void
  363. end_pipe(pipefd)
  364. FILE **pipefd;
  365. {
  366.   pclose(*pipefd);
  367. }
  368.  
  369. void
  370. PipeWaisDocument(q, doc, cmd)
  371. Question q;
  372. DocumentID doc;
  373. char *cmd;
  374. {
  375.   char message[STRINGSIZE];
  376.  
  377.  sprintf(message,"Retrieving: %s\n",firstphrase(trim_junk(doc->doc->headline)));
  378.  PrintStatus(message);
  379.  
  380.   strcpy(pipe_cmd,cmd);
  381.   signal(SIGPIPE,screen_catchpipe);
  382.   if (setjmp(local_env)==0) RetrieveWaisDocument(start_pipe,end_pipe,q,doc); 
  383.   signal(SIGPIPE,SIG_DFL);
  384. }
  385.  
  386. void
  387. FreeSourceList(sources)
  388. SourceList sources;
  389. {
  390.  SourceList s, n;
  391.  
  392.  for (s = sources; s != NULL; s = n) {
  393.    if (s->thisSource != NULL) {
  394.       if (s->thisSource->filename != NULL)
  395.     s_free(s->thisSource->filename);
  396.       s_free(s->thisSource);
  397.    }
  398.  
  399.    n = s->nextSource;
  400.    s_free(s);
  401.  }
  402. }
  403.  
  404. void AddQuestionSource(question, sourcename)
  405. Question question;
  406. char *sourcename;
  407. {
  408.   SourceList tmp;
  409.   SourceList s;
  410.   SourceID sid;
  411.  
  412.   sid = (SourceID)s_malloc(sizeof(_SourceID));
  413.   sid->filename = s_strdup(sourcename);
  414.   s = (SourceList)s_malloc(sizeof(_SourceList));
  415.   s->thisSource = sid;
  416.   s->nextSource = NULL;
  417.   tmp = question->Sources;
  418.   question->Sources = s;
  419.   if (tmp != NULL) 
  420.      s->nextSource = tmp;
  421. }
  422.  
  423. void
  424. usage(name)
  425. char *name;
  426. {
  427.     fprintf(stderr,"Usage: %s\n",name);
  428.     fprintf(stderr,"  [-s sourcname]          select sourcename for search\n");
  429.     fprintf(stderr,"  [-S sourcedir]          defaults to ~/wais-sources\n");
  430.     fprintf(stderr,"  [-C common_sourcedir]   defaults to %s\n",COMMON_SOURCE_DIR);
  431.     fprintf(stderr,"  [-h]                  this help message\n");
  432.     fprintf(stderr,"  [keywords]\n");
  433. }
  434.  
  435.  
  436. SourceID FindQuestionSource(sourcelist, sourcename) 
  437. SourceList sourcelist;
  438. char  *sourcename;
  439. {
  440.    SourceList tmpsource;
  441.    for(tmpsource = sourcelist; tmpsource != NULL; 
  442.                                tmpsource = tmpsource->nextSource) {
  443.     if (tmpsource->thisSource != NULL)
  444.        if (!strcmp(sourcename, tmpsource->thisSource->filename)) 
  445.      return(tmpsource->thisSource);
  446.    }
  447.    return(NULL);
  448. }
  449.  
  450. Source FindSource(sourcelist, sourcename) 
  451. SList sourcelist;
  452. char  *sourcename;
  453. {
  454.    SList tmpsource;
  455.    for(tmpsource = sourcelist; tmpsource != NULL; 
  456.                                tmpsource = tmpsource->nextSource) {
  457.     if (tmpsource->thisSource != NULL)
  458.        if (!strcmp(sourcename, tmpsource->thisSource->name)) 
  459.      return(tmpsource->thisSource);
  460.    }
  461.    return(NULL);
  462. }
  463.  
  464. void
  465. DumpSources(sourcelist)
  466. SList sourcelist;
  467. {
  468.    SList tmpsource;
  469.   
  470.    if (sourcelist == NULL) {
  471.       printf("Sourcelist NULL");
  472.       return;
  473.    }
  474.  
  475.    printf(" Dump of Sourcelist \n");
  476.    for(tmpsource = sourcelist; tmpsource != NULL; tmpsource = tmpsource->nextSource) {
  477.       if (tmpsource->thisSource == NULL) 
  478.          printf("    thisSource NULL\n");
  479.       else
  480.          printf("    thisSource = %s\n",tmpsource->thisSource->name);
  481.       if (tmpsource->nextSource == NULL) 
  482.          printf("    nextSource NULL\n");
  483.       else
  484.          printf("    following nextSource ->\n");
  485.     }
  486. }
  487.  
  488.  
  489. SList
  490. AddSource(sourcelist,currentsource)
  491. SList sourcelist;
  492. Source currentsource;
  493. {
  494.    Source s;
  495.    SList tmpsource;
  496.    SList last;
  497.   
  498.    if (sourcelist == NULL)
  499.      sourcelist = makeSList(NULL,NULL);
  500.  
  501.    last=sourcelist;
  502.  
  503.    for(tmpsource = sourcelist; tmpsource != NULL; 
  504.        last = tmpsource, tmpsource = tmpsource->nextSource) 
  505.          if (tmpsource->thisSource != NULL)
  506.         if (!strcmp(currentsource->name, tmpsource->thisSource->name)) 
  507.           return(sourcelist);
  508.  
  509.    s = (Source) s_malloc(sizeof(_Source));
  510.    s->initp = currentsource->initp;
  511.    s->name  = s_strdup(currentsource->name);
  512.    s->directory  = s_strdup(currentsource->directory);
  513.      
  514.    if (last->thisSource == NULL) 
  515.      last->thisSource = s;
  516.    else
  517.      last->nextSource = makeSList(s, NULL); 
  518.    return(sourcelist);
  519. }
  520.  
  521. SList
  522. DeleteSource(sourcelist,currentsource)
  523. SList sourcelist;
  524. Source currentsource;
  525. {
  526.    SList s;
  527.    SList tmpsource;
  528.    SList last;
  529.   
  530.    if (sourcelist == NULL)
  531.      return(NULL);
  532.  
  533.    last=sourcelist;
  534.  
  535.    for(tmpsource = sourcelist; tmpsource != NULL; 
  536.        last = tmpsource, tmpsource = tmpsource->nextSource) 
  537.          if (tmpsource->thisSource != NULL)
  538.         if (!strcmp(currentsource->name, tmpsource->thisSource->name)) {
  539.            if(tmpsource->thisSource->name != NULL)
  540.          s_free (tmpsource->thisSource->name);
  541.            if(tmpsource->thisSource->directory != NULL)
  542.          s_free (tmpsource->thisSource->directory);
  543.            if(tmpsource->thisSource->maintainer != NULL)
  544.          s_free (tmpsource->thisSource->maintainer);
  545.                
  546.                /* save next link ptr, discard current link */
  547.                s = tmpsource->nextSource; 
  548.                s_free (tmpsource);
  549.  
  550.                /* return next as start if start destroyed */
  551.                if (last==sourcelist)
  552.                  return(s);
  553.           
  554.                /* Splice next into position, return start ptr */
  555.                last->nextSource = s;
  556.                break;
  557.             }
  558.    return(sourcelist);
  559. }
  560.  
  561. char *
  562. fixdirname(dir)
  563. char *dir;
  564. {
  565.   char *res;
  566.  
  567.   if(dir[strlen(dir)-1] == '/') res = dir;
  568.   else {
  569.     res = s_malloc(strlen(dir)+2);
  570.     sprintf(res,"%s/", dir);
  571.   }
  572.   return res;
  573. }
  574.  
  575. int
  576. selection_page(sel)
  577. int sel;
  578. {
  579.   return(((sel-1) / page_length));
  580. }
  581.  
  582. int
  583. selection_line(sel)
  584. int sel;
  585. {
  586.   return(((sel-1) % page_length)+2);
  587. }
  588.   
  589. selection_display(new_sel)
  590. int new_sel;
  591. {
  592.   int new_page;
  593.   int new_selection;
  594.   int sel_offset;
  595.   int k;
  596.  
  597.   standend();
  598.   mvprintw(selection_line(selection),0,"%s",select_line[selection]);
  599.   
  600.   if (new_sel==NOSELECTION) 
  601.     new_selection = selection;
  602.   else
  603.     new_selection = new_sel;
  604.  
  605.   if (new_selection < 1)
  606.       new_selection = max_selection;
  607.   if (new_selection > max_selection) 
  608.       new_selection = 1;
  609.  
  610.   new_page = selection_page(new_selection);
  611.   if (current_page!=new_page) {
  612.     sel_offset = new_page * page_length;
  613.     for (k = 1; k <= page_length; k++) 
  614.       if ((sel_offset+k)<=max_selection)
  615.     mvprintw(1+k,0,"%s",select_line[sel_offset+k]);
  616.       else
  617.     mvprintw(1+k,0,"\n");
  618.   }
  619.  
  620.   if (new_sel!=NOSELECTION) {
  621.      standout();
  622.      mvprintw(selection_line(new_selection),0,"%s",select_line[new_selection]);
  623.      standend();
  624.   }
  625.   move(selection_line(new_selection),0);
  626.   current_page = new_page;
  627.   selection = new_selection;
  628.   refresh();
  629. }
  630.  
  631. void
  632. title_display(title,status,status_count)
  633. char *title;
  634. char *status;
  635. int  status_count;
  636. {
  637.   mvprintw(0,0,WAISSCREEN_NAME);
  638.   standout();
  639.   mvprintw(0,COLS/2-(strlen(title)/2),"%s", title);
  640.   standend();
  641.   mvprintw(0,COLS-(strlen(status)+4),"%s %2ld", status, status_count);
  642. }
  643.  
  644. void
  645. show_source_entry_help()
  646. {
  647.   int j=2;
  648.  
  649.   clear();
  650.   title_display("Source Selection Help","Page:",1);
  651.   mvprintw(j++,0,"%s\t%s","j, down arrow, ^N","Move Down one source");
  652.   mvprintw(j++,0,"%s\t%s","k, up arrow, ^P  ","Move Up one source");
  653.   mvprintw(j++,0,"%s\t%s","J, ^V, ^D        ","Move Down one screen");
  654.   mvprintw(j++,0,"%s\t%s","K, <esc> v, ^U   ","Move Up one screen");
  655.   mvprintw(j++,0,"%s\t%s","###              ","Position to source number ##");
  656.   mvprintw(j++,0,"%s\t%s","/sss             ","Search for source sss");
  657.   mvprintw(j++,0,"%s\t%s","<space>, <period>","Select current source");
  658.   mvprintw(j++,0,"%s\t%s","=                ","Deselect all sources");
  659.   mvprintw(j++,0,"%s\t%s","v, <comma>       ","View current source info");
  660.   mvprintw(j++,0,"%s\t%s","<ret>            ","Perform search");
  661.   mvprintw(j++,0,"%s\t%s","s                ","Select new sources (refresh sources list)");
  662.   mvprintw(j++,0,"%s\t%s","w                ","Select new keywords");
  663.   mvprintw(j++,0,"%s\t%s","X, -             ","Remove current source permanently");
  664.   mvprintw(j++,0,"%s\t%s","o                ","Set and show swais options");
  665.   mvprintw(j++,0,"%s\t%s","h, ?             ","Show this help display");
  666.   mvprintw(j++,0,"%s\t%s","H                ","Display program history");
  667.   mvprintw(j++,0,"%s\t%s","q                ","Leave this program");
  668.   PrintStatus("Press any key to continue"); 
  669.   getch();
  670. }
  671.  
  672. void
  673. view_source_info(sourcelist,current_s)
  674. SList sourcelist;
  675. Source    current_s;
  676. {
  677.   FILE *fp;
  678.   int j=2;
  679.   char tmp_str[STRINGSIZE];
  680.   sprintf(pipe_cmd,"${PAGER-more}");
  681.   start_pipe(&fp);
  682.   if (NULL != current_s->name) 
  683.     fprintf(fp,"\n%s\t%s\n","Name:       ",current_s->name);
  684.   if (NULL != current_s->directory) 
  685.     fprintf(fp,"%s\t%s\n","Directory:  ",current_s->directory);
  686.   if (NULL != current_s->maintainer) 
  687.     fprintf(fp,"%s\t%s\n","Maintainer: ",current_s->maintainer);
  688.   if (NULL != FindSource(sourcelist,current_s->name)) 
  689.     sprintf(tmp_str,"Yes");
  690.   else
  691.     sprintf(tmp_str,"No");
  692.     fprintf(fp,"%s\t%s\n","Selected:   ",tmp_str);
  693.   format_source_cost(tmp_str,current_s);
  694.     fprintf(fp,"%s\t%s\n","Cost:       ",tmp_str);
  695.   if (current_s->initp) 
  696.     sprintf(tmp_str,"(Accessed)");
  697.   else
  698.     tmp_str[0]='\0';
  699.   if (NULL != current_s->server) 
  700.     fprintf(fp,"%s\t%s %s\n","Server:     ",current_s->server,tmp_str);
  701.   if (NULL != current_s->service)  
  702.     fprintf(fp,"%s\t%s\n","Service:    ",current_s->service);
  703.   if (NULL != current_s->database) 
  704.     fprintf(fp,"%s\t%s\n","Database:   ",current_s->database);
  705.   if (NULL != current_s->description) {
  706.     fprintf(fp,"%s\n","Description:");
  707.     fprintf(fp,"%s\n",current_s->description);
  708.   }
  709.   end_pipe(&fp);
  710.   cbreak();
  711.   noecho();
  712.   PrintStatus("Press any key to continue.");
  713.   getch();
  714. }
  715.  
  716. void
  717. view_result_info(current_doc)
  718. DocumentID current_doc;
  719. {
  720.   int j=2;
  721.   char tmp_str[STRINGSIZE];
  722.  
  723.   clear();
  724.   title_display("Result Information","Page:",1);
  725.  
  726. /*  sure.. someday these might have data. jtc
  727.     GetServer(current_doc->doc->id,tmp_str);
  728.     mvprintw(j++,0,"%s\t%s","Server:     ",tmp_str);
  729.     GetDatabase(current_doc->doc->id,tmp_str);
  730.     mvprintw(j++,0,"%s\t%s","Database:   ",tmp_str);
  731.     GetLocalID(current_doc->doc->id,tmp_str);
  732.     mvprintw(j++,0,"%s\t%s","Local ID:   ",tmp_str);
  733. */
  734.   if (NULL != current_doc->doc->date) 
  735.     mvprintw(j++,0,"%s\t%s","Date:       ",current_doc->doc->date);
  736.   if (NULL != current_doc->doc->headline) 
  737.     mvprintw(j++,0,"%s\t%s","Source:     ",current_doc->doc->source);
  738.   if (NULL != current_doc->doc->headline) 
  739.     mvprintw(j++,0,"%s\t%s","Headline:   ",current_doc->doc->headline);
  740.   if (NULL != current_doc->doc->city) 
  741.     mvprintw(j++,0,"%s\t%s","City:       ",current_doc->doc->city);
  742.   if (NULL != current_doc->doc->stock) 
  743.     mvprintw(j++,0,"%s\t%s","Stock:      ",current_doc->doc->stock);
  744.   if (NULL != current_doc->doc->company) 
  745.     mvprintw(j++,0,"%s\t%s","Company:    ",current_doc->doc->company);
  746.   if (NULL != current_doc->doc->industry) 
  747.     mvprintw(j++,0,"%s\t%s","Industry:   ",current_doc->doc->industry);
  748.   if (NULL != current_doc->doc->type) 
  749.     mvprintw(j++,0,"%s\t%s","Type:       ",current_doc->doc->type);
  750.     mvprintw(j++,0,"%s\t%d","Score       ",current_doc->rawScore);
  751.  
  752.     mvprintw(j++,0,"%s\t%ld","# of Lines: ",current_doc->doc->numLines);
  753.     mvprintw(j++,0,"%s\t%ld","# of Chars: ",current_doc->doc->numChars);
  754.  
  755.   if (NULL != current_doc->doc->sourceID->filename) 
  756.      mvprintw(j++,0,"%s\t%s","SourceID:   ",current_doc->doc->sourceID->filename);
  757.   switch (GetCopyrightDisposition(current_doc->doc->id)) {
  758.   
  759.      case (COPY_WITHOUT_RESTRICTION) : sprintf(tmp_str,"Copy Without Restriction");
  760.                                        break;
  761.      case (ALL_RIGHTS_RESERVED) : sprintf(tmp_str,"All Rights Reserved");
  762.                                        break;
  763.      case (DISTRIBUTION_RESTRICTIONS_APPLY) : sprintf(tmp_str,"Distribution Restrictions Apply");
  764.                                        break;
  765.      default : sprintf(tmp_str,"Unknown");
  766.                                        break;
  767.   }
  768.      mvprintw(j++,0,"%s\t%s","Disposition: ",tmp_str);
  769.  
  770.   PrintStatus("Press any key to continue"); 
  771.   getch();
  772. }
  773.  
  774. void
  775. show_swais_history()
  776. {
  777.   char versiononly[STRINGSIZE];
  778.   int j=2;
  779.  
  780.   clear();
  781.   title_display("SWAIS History","Page:",1);
  782.   mvprintw(j++,0,"%s"," ");
  783.   mvprintw(j++,0,"%s",
  784. "The WAIS (Wide Area Information Service) system is a collection of programs");
  785.   mvprintw(j++,0,"%s",
  786. "which provide for convenient information distribution over wide area networks.");
  787.   mvprintw(j++,0,"%s",
  788. "Tools for both \"publishing\" and accessing information sources are provided.");
  789.   mvprintw(j++,0,"%s",
  790. "The Simple WAIS (SWAIS) interface is an basic access tool designed for those");
  791.   mvprintw(j++,0,"%s",
  792. "focused on data retreival and not computer operation. It provides most of the");
  793.   mvprintw(j++,0,"%s",
  794. "functionality of the more complicated interfaces but features a simple and");
  795.   mvprintw(j++,0,"%s",
  796. "potentially more natural interface.  The functionality supported includes ");
  797.   mvprintw(j++,0,"%s",
  798. "source selection, keyword entry, and automatic document retrieval.");
  799.   mvprintw(j++,0,"%s",
  800. "I hope that this tool may be of use.  Enjoy.");
  801.   mvprintw(j++,0,"%s"," ");
  802.   mvprintw(j++,0,"%s",
  803. "The WAIS system is the result of a joint project between Thinking Machines,");
  804.   mvprintw(j++,0,"%s",
  805. "Apple Computer, and Dow Jones.  For more information on WAIS, send mail to");
  806.   mvprintw(j++,0,"%s",
  807. "\"wais-discussion@think.com\".  The current release of the WAIS software");
  808.   mvprintw(j++,0,"%s",
  809. "is available via anonymous ftp from think.com in subdirectory wais.");
  810.   sscanf(WAISSCREEN_VERSION,"$ %*s %s",versiononly);
  811.   mvprintw(LINES-5,0,"Simple Wais %s [built with %s]", versiononly,VERSION);
  812.   mvprintw(LINES-3,0,"%s", WAISSCREEN_AUTHOR);
  813.  
  814.   PrintStatus("Press any key to continue"); 
  815.   getch();
  816. }
  817.  
  818. void
  819. show_search_results_help()
  820. {
  821.   int j=2;
  822.  
  823.   clear();
  824.   title_display("Search Results Help","Page:",1);
  825.   mvprintw(j++,0,"%s\t\t%s","j, ^N  ","Move Down one item");
  826.   mvprintw(j++,0,"%s\t\t%s","k, ^P  ","Move Up one item");
  827.   mvprintw(j++,0,"%s\t\t%s","J      ","Move Down one screen");
  828.   mvprintw(j++,0,"%s\t\t%s","K      ","Move Up one screen");
  829.   mvprintw(j++,0,"%s\t\t%s","m      ","Mail current item to an address");
  830.   mvprintw(j++,0,"%s\t\t%s","##     ","Position to item number ##");
  831.   mvprintw(j++,0,"%s\t\t%s","/sss   ","Position to item beginning sss");
  832.   mvprintw(j++,0,"%s\t\t%s","<space>","Display current item");
  833.   mvprintw(j++,0,"%s\t\t%s","<return>","Display current item");
  834.   mvprintw(j++,0,"%s\t\t%s","|      ","Pipe current item into a unix command");
  835.   mvprintw(j++,0,"%s\t\t%s","v      ","View current item information");
  836.   mvprintw(j++,0,"%s\t\t%s","s      ","Specify new sources to search");
  837.   mvprintw(j++,0,"%s\t\t%s","u      ","Use it; add it to the list of sources");
  838.   mvprintw(j++,0,"%s\t\t%s","w      ","Make another search with new keywords");
  839.   mvprintw(j++,0,"%s\t\t%s","o      ","Set and show swais options");
  840.   mvprintw(j++,0,"%s\t\t%s","h      ","Show this help display");
  841.   mvprintw(j++,0,"%s\t\t%s","H      ","Display program history");
  842.   mvprintw(j++,0,"%s\t\t%s","q      ","Leave this program");
  843.   PrintStatus("Press any key to continue"); 
  844.   getch();
  845. }
  846.  
  847. int
  848. get_input_string(str)
  849. char str[STRINGSIZE];
  850. {
  851.       int  startcol, startline;
  852.       int  pos;
  853.       char ch;
  854.  
  855.       getyx(stdscr, startline, startcol);
  856.       addstr(str);
  857.       clrtoeol();
  858.       refresh();
  859.  
  860.       pos = strlen(str);
  861.       while(TRUE) {
  862.  
  863.     ch=getch();
  864.         if (ch==killchar()) {
  865.         move(startline, startcol);
  866.         clrtoeol();
  867.         refresh();
  868.         str[0] = 0;
  869.         pos = 0;
  870.         }
  871.         else
  872.            if ((ch==erasechar())||(ch==127)) {
  873.            if (pos>0) {
  874.          str[--pos]='\0';
  875.          mvaddch(startline,startcol+pos,' ');
  876.          move(startline,startcol+pos);
  877.          refresh();
  878.            }
  879.                else {
  880.                  str[0]='\0';
  881.                  break;
  882.                }
  883.        }
  884.            else
  885.           if (ch=='\n')
  886.         break;
  887.               else 
  888.                 if (isprint(ch)){
  889.          str[pos++]=ch;
  890.          str[pos]='\0';
  891.          addch(ch);
  892.          refresh();
  893.               }
  894.  
  895.       }
  896.        
  897.       display_prompt("");
  898.       return(str[0]!='\0');
  899. }
  900.  
  901. void
  902. display_source_selected(sourcelist,currentsource)
  903. SList sourcelist;
  904. Source currentsource;
  905. {
  906.    if (NULL != FindSource(sourcelist,currentsource->name)) {
  907.      mvprintw(selection_line(selection),5,"*");
  908.       }
  909.    else {
  910.       mvprintw(selection_line(selection),5," ");
  911.       }
  912. }
  913.  
  914. void
  915. source_selected(sourcelist,currentsource,sel)
  916. SList sourcelist;
  917. Source currentsource;
  918. {
  919.    if (NULL != FindSource(sourcelist,currentsource->name)) {
  920.          select_line[sel][5] = '*';
  921.       }
  922.    else {
  923.       select_line[sel][5] = ' ';
  924.       }
  925. }
  926.  
  927. programstate
  928. nextstate(question)
  929. Question question;
  930. {
  931.   if ((question->numsources==0) || !(question->modified)) {
  932.      return(GETSOURCES);
  933.   }
  934.     
  935.   return(GETKEYWORDS);
  936. }
  937.  
  938. programstate
  939. makequery_state(question)
  940. Question question;
  941. {
  942.   SList asource;
  943.  
  944.    /* rebuild question source list from Selected_Sources */
  945.    FreeSourceList(question->Sources);
  946.    question->Sources = NULL;
  947.    /* build new question source list */
  948.    for (asource = Selected_Sources; 
  949.      asource != NULL ; asource = asource->nextSource)
  950.        if (asource->thisSource != NULL) 
  951.      AddQuestionSource(question,asource->thisSource->name);
  952.    question->numsources = listlength((List)question->Sources);
  953.  
  954.    question->RelevantDocuments = NULL;
  955.    question->numdocs = listlength((List)question->RelevantDocuments);
  956.    question->ResultDocuments = NULL;
  957.    question->numresdocs = listlength((List)question->ResultDocuments);
  958.  
  959.    SearchWais(question);
  960.    question->modified = FALSE;
  961.  
  962.    if(question->numresdocs > 0) {
  963.      result_selection = 1;
  964.      return(SHOWRESULTS);
  965.    } else 
  966.      return(nextstate(question));
  967. }
  968.  
  969. void
  970. option_screen(question)
  971. Question question;
  972. {
  973.   DocList doclist;
  974.   DocumentID current_doc;
  975.   int k;
  976.   int option_count;
  977.   char fstr[STRINGSIZE];
  978.   char tstr[STRINGSIZE];
  979.   char *sourcename;
  980.  
  981.   option_count = MAXOPTIONS;
  982.  
  983.   title_display("Option Settings","Options:", option_count);
  984.  
  985.   mvprintw(1,2,"#    Option        Value ");
  986.  
  987.   sprintf(fstr,"%%03d:   %%-12.12s  %%-%d.%ds",COLS-22,COLS-22);
  988.  
  989.   for (k=1; k <= option_count; k++) {
  990.      format_option(tstr,options[k]);
  991.      sprintf(select_line[k], fstr, k, options[k].name, tstr);
  992.   }
  993.  
  994.   selection = option_selection;
  995.   current_page = -1;
  996.   max_selection= option_count;
  997.   page_length= MIN(LINES-6, option_count);
  998.   selection_display(NOSELECTION);
  999.  
  1000. }
  1001.  
  1002. programstate
  1003. option_state(question)
  1004. Question question;
  1005. {
  1006.  
  1007.   char user_key[STRINGSIZE];
  1008.   char digit_str[STRINGSIZE];
  1009.   int k,miss, option_count;
  1010.  
  1011.   option_count = MAXOPTIONS+1;
  1012.   selection_display(selection);
  1013.   display_context(options[selection].desc);
  1014.   
  1015.   digit_str[0]='\0';
  1016.   while(TRUE) {
  1017.     display_prompt("<space> to change, arrows to move, s for sources, r for results, ? for help");
  1018.     user_key[0]=getch();
  1019.     switch(user_key[0]) {
  1020.     
  1021.     case 'h' : ;
  1022.     case '?' : show_search_results_help();
  1023.       state=UNKNOWN;
  1024.       return(GETOPTIONS);
  1025.          
  1026.       /* forgive me: hardwired arrow keys for vt100 since we're
  1027.      not using SysV curses and bsd curses lacks key support  */
  1028.     case '\033' : user_key[1]=getch();
  1029.       user_key[2]=getch();
  1030.       user_key[3]='\0';
  1031.       if (strcmp(user_key, "\033[A")) {
  1032.     selection_display(selection+1);
  1033.   display_context(options[selection].desc);
  1034.     option_selection = selection;
  1035.     break;
  1036.       }
  1037.       if (strcmp(user_key, "\033[B")) {
  1038.     selection_display(selection-1);
  1039.   display_context(options[selection].desc);
  1040.     option_selection = selection;
  1041.     break;
  1042.       }
  1043.  
  1044.     /* emacs <meta>v page previous */
  1045.     if (user_key[1]=='v') {
  1046.       selection_display(selection-page_length);
  1047.   display_context(options[selection].desc);
  1048.       option_selection = selection;
  1049.       break;
  1050.     }
  1051.         break;
  1052.  
  1053.         case 10   : ;
  1054.         case ' '  : k = selection;
  1055.             switch (options[k].type) {
  1056.             case OPTION_INTEGER : 
  1057.                 digit_str[0]='\0';
  1058.                 mvprintw(LINES-3,0,"New Value: ");
  1059.                 get_input_string(digit_str);
  1060.                 if (atoi(digit_str)!= 0) {
  1061.                   *(options[k].var.intptr) = atoi(digit_str);
  1062.                                   options[k].update();
  1063.                 }
  1064.                 standend();
  1065.                 mvprintw(LINES-3,0," ");
  1066.                 clrtoeol();
  1067.                 break;
  1068.             case OPTION_STRING : 
  1069.                 digit_str[0]='\0';
  1070.                 mvprintw(LINES-3,0,"New Value: ");
  1071.                 if (get_input_string(digit_str)){
  1072.                   strcpy(options[k].var.charptr, digit_str);
  1073.                                   options[k].update();
  1074.                 }
  1075.                 standend();
  1076.                 mvprintw(LINES-3,0," ");
  1077.                 clrtoeol();
  1078.                 break;
  1079.             case OPTION_BOOLEAN : 
  1080.                 if (* (options[k].var.intptr) == TRUE)
  1081.                 *(options[k].var.intptr) = FALSE;
  1082.                 else
  1083.                 *(options[k].var.intptr) = TRUE;
  1084.                                 options[k].update();
  1085.                 break;
  1086.             }
  1087.             state=UNKNOWN;
  1088.             return(GETOPTIONS);
  1089.  
  1090.         case 14   : ;
  1091.         case 'j'  : selection_display(selection+1); 
  1092.   display_context(options[selection].desc);
  1093.               option_selection = selection;
  1094.               break;
  1095.  
  1096.         case 16   : ;
  1097.         case 'k'  : selection_display(selection-1); 
  1098.   display_context(options[selection].desc);
  1099.               option_selection = selection;
  1100.               break;
  1101.  
  1102.         case 'q'  : return(LEAVEPROGRAM);
  1103.         case 's'  : return(GETSOURCES);
  1104.         case 'r'  : if(question->numresdocs > 0) return(SHOWRESULTS);break;
  1105.         case 'w'  : return(GETKEYWORDS);
  1106.                 
  1107.         case 18   : ;
  1108.         case '\f' : wrefresh(curscr);
  1109.                         break;
  1110.  
  1111.             case '/'  : user_key[0] = '\0';
  1112.               mvprintw(LINES-3,0,"Option Name: ");
  1113.               get_input_string(user_key);
  1114.             standend();
  1115.               mvprintw(LINES-3,0," ");
  1116.               clrtoeol();
  1117.             refresh();
  1118.              if (strlen(user_key)) {
  1119.                miss = TRUE;
  1120.                      for (k=1 ; k <= option_count ; k++ ) {
  1121.                     if (!strncasecmp(user_key,options[k].name,
  1122.                 strlen(user_key))) {
  1123.                             selection_display(k);
  1124.                                 option_selection = k;
  1125.                 miss = FALSE;
  1126.                     break;
  1127.                               }
  1128.                     }
  1129.                         if (miss=TRUE) PrintStatus("Unable to find item");
  1130.                         }
  1131.             display_context(options[option_selection].desc);
  1132.                         break;
  1133.  
  1134.      case 4    : ;
  1135.          case 22   : ; /* emacs ctrl-v */
  1136.      case 'J'  : selection_display(selection+page_length);
  1137.   display_context(options[selection].desc);
  1138.                      option_selection = selection;
  1139.              break;
  1140.  
  1141.      case 21   : ;
  1142.          case 'K'  : selection_display(selection-page_length); 
  1143.   display_context(options[selection].desc);
  1144.                      option_selection = selection;
  1145.                      break;
  1146.  
  1147.          default :   if (isdigit(user_key[0])) {
  1148.               digit_str[0] = user_key[0];
  1149.               digit_str[1] = '\0';
  1150.               mvprintw(LINES-3,0,"Item Number: ");
  1151.               get_input_string(digit_str);
  1152.              if (atoi(digit_str)!= 0) {
  1153.                     selection_display(atoi(digit_str));
  1154.                option_selection = selection;
  1155.                 }
  1156.             standend();
  1157.               mvprintw(LINES-3,0," ");
  1158.                         clrtoeol();
  1159.               display_context(options[selection].desc);
  1160.       }
  1161.     }
  1162.   } 
  1163. }
  1164.  
  1165. void
  1166. source_screen(question)
  1167. Question question;
  1168. {
  1169.   int k;
  1170.   int source_count;
  1171.   Source current_s;
  1172.   SList asource;
  1173.   char fstr[STRINGSIZE];
  1174.  
  1175.   source_count = listlength((List)Sources);
  1176.  
  1177.   title_display("Source Selection","Sources:",source_count);
  1178.   mvprintw(1,2,"#            Server                          Source                      Cost");
  1179.  
  1180.   sprintf(fstr,"%%03d:   [%%20.20s]  %%-%d.%ds %%16.16s",COLS-49,COLS-49);
  1181.   k = 1;
  1182.   for (asource = Sources; asource != NULL ; asource = asource->nextSource) {
  1183.  
  1184.      char tmpstr[STRINGSIZE];
  1185.      char cost_str[STRINGSIZE];
  1186.  
  1187.      current_s=asource->thisSource;
  1188.      tmpstr[0]='\0';
  1189.      if (strstr(current_s->name,".src")!=NULL) 
  1190.     strncat(tmpstr, current_s->name, strlen(current_s->name)-4);
  1191.      else
  1192.         strcat(tmpstr, current_s->name);
  1193.      
  1194.      format_source_cost(cost_str,current_s);
  1195.      sprintf(select_line[k], fstr, k, current_s->server, tmpstr, cost_str);
  1196.      source_selected(Selected_Sources,current_s,k);
  1197.      k++;
  1198.   }
  1199.   selection = source_selection;
  1200.   current_page = -1;
  1201.   max_selection=source_count;
  1202.   page_length= MIN(LINES-6, source_count);
  1203.   selection_display(NOSELECTION);
  1204.  
  1205.   mvprintw(LINES-3,0,"Keywords:");
  1206.   mvprintw(LINES-3,10,"%s",question->keywords);
  1207.   refresh();
  1208. }
  1209.  
  1210. programstate
  1211. source_state(question)
  1212. Question question;
  1213. {
  1214.   int miss,k;
  1215.   /* int source_count; */
  1216.   /* Source current_s; */
  1217.   SList asource;
  1218.   char user_key[STRINGSIZE];
  1219.   char digit_str[STRINGSIZE];
  1220.   char message[STRINGSIZE];
  1221.  
  1222.   /* source_count = listlength((List)Sources); */
  1223.   selection_display(selection);
  1224.  
  1225.   digit_str[0]='\0';
  1226.  
  1227.    while(TRUE) {
  1228.  
  1229.      display_prompt("<space> selects, w for keywords, arrows move, <return> searches, q quits, or ?");
  1230.     user_key[0]=getch();
  1231.     switch(user_key[0]) {
  1232.        
  1233.         case 'H' : show_swais_history();
  1234.                        state=UNKNOWN;
  1235.                return(GETSOURCES);
  1236.  
  1237.         case 'h' : ;
  1238.         case '?' : show_source_entry_help();
  1239.                        state=UNKNOWN;
  1240.                return(GETSOURCES);
  1241.         
  1242.         /* forgive me: hardwired arrow keys for vt100 since we're
  1243.            not using SysV curses and bsd curses lacks key support  */
  1244.         case '\033' : user_key[1]=getch();
  1245.               user_key[2]=getch();
  1246.               user_key[3]='\0';
  1247.               if (strcmp(user_key, "\033[A")) {
  1248.                  selection_display(selection+1);
  1249.                              source_selection = selection;
  1250.                              break;
  1251.                           }
  1252.  
  1253.               if (strcmp(user_key, "\033[B")) {
  1254.                  selection_display(selection-1);
  1255.                              source_selection = selection;
  1256.                              break;
  1257.                           }
  1258.  
  1259.               /* emacs <meta>v page previous */
  1260.               if (user_key[1]=='v') {
  1261.                      selection_display(selection-page_length);
  1262.                              source_selection = selection;
  1263.                              break;
  1264.                           }
  1265.  
  1266.                           break;
  1267.  
  1268.         case 'o' : return(GETOPTIONS);
  1269.  
  1270.         case ','  : ;
  1271.         case 'v'  : k = 0;
  1272.             for (asource = Sources; 
  1273.               asource != NULL ; asource = asource->nextSource) {
  1274.               k++;
  1275.               if (k==selection) break;
  1276.             }
  1277.                         view_source_info(Selected_Sources,asource->thisSource); 
  1278.                         state=UNKNOWN;
  1279.                 return(GETSOURCES);
  1280.  
  1281.             case 'X'  : ;
  1282.         case '-'  : k = 0;
  1283.             for (asource = Sources; 
  1284.               asource != NULL ; asource = asource->nextSource) {
  1285.               k++;
  1286.               if (k==selection) break;
  1287.             }
  1288.                         sprintf(fpath,"%s%s.src", sdir, firstphrase(trim_junk(asource->thisSource->name)));
  1289.                         sprintf(message,"Removing Source: %s\n", firstphrase(trim_junk(asource->thisSource->name)));
  1290.             PrintStatus(message);
  1291.  
  1292.                         if (unlink(fpath)==0) {  
  1293.                if (FindSource(Selected_Sources,asource->thisSource->name)) {
  1294.            
  1295.                   Selected_Sources = DeleteSource(Selected_Sources,asource->thisSource);
  1296.                   question->numsources--;
  1297.                   question->modified=TRUE;
  1298.                }
  1299.                FreeSources(Sources);
  1300.                Sources = NULL;
  1301.                ReadSourceDirectory(sdir,TRUE);
  1302.                ReadSourceDirectory(cdir,TRUE);
  1303.                state=UNKNOWN;
  1304.                return(GETSOURCES);
  1305.                        }
  1306.                        PrintStatus("Unable to remove common sources");
  1307.                        break;
  1308.  
  1309.             case '/'  : user_key[0] = '\0';
  1310.               mvprintw(LINES-3,0,"Source Name: ");
  1311.               get_input_string(user_key);
  1312.             standend();
  1313.               mvprintw(LINES-3,0," ");
  1314.               clrtoeol();
  1315.             refresh();
  1316.              if (strlen(user_key)) {
  1317.                k=0; miss = TRUE;
  1318.                      for (asource = Sources; 
  1319.                   asource != NULL ; asource = asource->nextSource) {
  1320.                     k++;
  1321.                             if (asource->thisSource != NULL) 
  1322.                       if (!strncasecmp(user_key,
  1323.                 asource->thisSource->name, strlen(user_key))) {
  1324.                             selection_display(k);
  1325.                                 source_selection = k;
  1326.                 miss = FALSE;
  1327.                     break;
  1328.                               }
  1329.                     }
  1330.                           if (miss) PrintStatus("Unable to find source");
  1331.                         }
  1332.                         break;
  1333.  
  1334.         case '='  : k = 0;
  1335.             for (asource = Sources; 
  1336.               asource != NULL ; asource = asource->nextSource) {
  1337.               k++;
  1338.               if (FindSource(Selected_Sources,
  1339.                 asource->thisSource->name)) {
  1340.         
  1341.                    Selected_Sources = DeleteSource(Selected_Sources,asource->thisSource);
  1342.                    question->numsources--;
  1343.                    question->modified=TRUE;
  1344.             display_source_selected(Selected_Sources,asource->thisSource);
  1345.             source_selected(Selected_Sources,asource->thisSource,k);
  1346.             selection_display(k);
  1347.                 }
  1348.                         }
  1349.                         break;
  1350.  
  1351.             case '.'  : ;
  1352.         case ' '  : k = 0;
  1353.             for (asource = Sources; 
  1354.               asource != NULL ; asource = asource->nextSource) {
  1355.               k++;
  1356.               if (k==selection) break;
  1357.             }
  1358.             if (FindSource(Selected_Sources,asource->thisSource->name)) {
  1359.         
  1360.                Selected_Sources = DeleteSource(Selected_Sources,asource->thisSource);
  1361.                            question->numsources--;
  1362.                question->modified=TRUE;
  1363.                         }
  1364.             else {
  1365.                Selected_Sources = AddSource(Selected_Sources,asource->thisSource);
  1366.                            question->numsources++;
  1367.                question->modified=TRUE;
  1368.                         }
  1369.             display_source_selected(Selected_Sources,asource->thisSource);
  1370.             source_selected(Selected_Sources,asource->thisSource,selection);
  1371.             selection_display(selection);
  1372.             break;
  1373.  
  1374.             case 14   : ;
  1375.         case 'j'  : selection_display(selection+1);
  1376.                         source_selection = selection;
  1377.             break;
  1378.  
  1379.             case 16   : ;
  1380.         case 'k'  : selection_display(selection-1);
  1381.                         source_selection = selection;
  1382.             break;
  1383.         case 'q'  : return(LEAVEPROGRAM);
  1384.         case 'r'  : if(question->numresdocs > 0) return(SHOWRESULTS);break;
  1385.         case 's'  : return(GETSOURCES);
  1386.         case 10   : k = 0;
  1387.             for (asource = Sources; 
  1388.               asource != NULL ; asource = asource->nextSource) {
  1389.               k++;
  1390.               if (k==selection) break;
  1391.             }
  1392.             if (NULL == FindSource(Selected_Sources,asource->thisSource)) {
  1393.         
  1394.                Selected_Sources = AddSource(Selected_Sources,asource->thisSource);
  1395.                            question->numsources++;
  1396.                question->modified=TRUE;
  1397.                         }
  1398.             display_source_selected(Selected_Sources,asource->thisSource);
  1399.             source_selected(Selected_Sources,asource->thisSource,selection);
  1400.             selection_display(selection);
  1401.                         return(nextstate(question)); 
  1402.  
  1403.         case 'w'  : return(GETKEYWORDS);
  1404.  
  1405.         case  18  : ;
  1406.         case '\f' : wrefresh(curscr);
  1407.                         break;
  1408.  
  1409.         case 4    : ;
  1410.             case 22   : ; /* ctrl-v */
  1411.         case 'J'  : selection_display(selection+page_length);
  1412.                         source_selection = selection;
  1413.             break;
  1414.  
  1415.         case 21   : ;
  1416.         case 'K'  : selection_display(selection-page_length);
  1417.                         source_selection = selection;
  1418.             break;
  1419.  
  1420.          default :   if (isdigit(user_key[0])) {
  1421.               digit_str[0] = user_key[0];
  1422.               digit_str[1] = '\0';
  1423.               mvprintw(LINES-3,0,"Source Number: ");
  1424.               get_input_string(digit_str);
  1425.              if (atoi(digit_str)!= 0) {
  1426.                     selection_display(atoi(digit_str));
  1427.                 }
  1428.             standend();
  1429.               mvprintw(LINES-3,0," ");
  1430.               clrtoeol();
  1431.               mvprintw(LINES-3,0,"Keywords:");
  1432.               mvprintw(LINES-3,10,"%s",question->keywords);
  1433.                 }
  1434.      }
  1435.    }
  1436. }
  1437.  
  1438. void
  1439. mail_command(question)
  1440. Question question;
  1441. {
  1442.   char tmpstr[STRINGSIZE];
  1443.   display_prompt("Enter your e-mail address; ^C to cancel");
  1444.   standout();
  1445.   tmpstr[0]='\0';
  1446.   strcat(tmpstr,"mail ");
  1447.   mvprintw(LINES-3,0,"Address:");
  1448.   standend();
  1449.   move(LINES-3,9);
  1450.   if (get_input_string(command)) {
  1451.      standend();
  1452.      mvprintw(LINES-3,0,"Address:");
  1453.      refresh();
  1454.      strcat(tmpstr,command);
  1455.      mvprintw(LINES-2,0,tmpstr);
  1456.      PipeWaisDocument(question, findDoc(question->ResultDocuments,selection-1),tmpstr);
  1457.      cbreak();
  1458.      screenstart();
  1459.   }
  1460.   standend();
  1461.   mvprintw(LINES-3,0,"\n");
  1462.   display_prompt("");
  1463.   refresh();
  1464. }
  1465.  
  1466.  
  1467. void
  1468. pipe_command(question)
  1469. Question question;
  1470. {
  1471.   display_prompt("Enter the command to be executed on this item; ^C to cancel");
  1472.   standout();
  1473.   mvprintw(LINES-3,0,"Command:");
  1474.   standend();
  1475.   move(LINES-3,9);
  1476.   if (get_input_string(command)) {
  1477.      standend();
  1478.      mvprintw(LINES-3,0,"Command:");
  1479.      refresh();
  1480.      PipeWaisDocument(question, findDoc(question->ResultDocuments,selection-1),command);
  1481.      cbreak();
  1482.      noecho();
  1483.      PrintStatus("Press any key to continue"); 
  1484.      getch();
  1485.      cbreak();
  1486.      screenstart();
  1487.   }
  1488.   standend();
  1489.   mvprintw(LINES-3,0,"\n");
  1490.   display_prompt("");
  1491.   refresh();
  1492. }
  1493.  
  1494.  
  1495. keyword_state(question)
  1496. Question question;
  1497. {
  1498.   display_prompt("Enter keywords with spaces between them; <return> to search; ^C to cancel");
  1499.   standout();
  1500.   mvprintw(LINES-3,0,"Keywords:");
  1501.   standend();
  1502.   move(LINES-3,10);
  1503.   strcpy(keywords,question->keywords);
  1504.   if (get_input_string(keywords)) {
  1505.      standend();
  1506.      mvprintw(LINES-3,0,"Keywords:");
  1507.      refresh();
  1508.      strcpy(question->keywords,keywords);
  1509.      question->modified = TRUE;
  1510.      return(MAKEQUERY);
  1511.   }
  1512.   standend();
  1513.   mvprintw(LINES-3,0,"Keywords:");
  1514.   mvprintw(LINES-3,10,"%s",question->keywords);
  1515.   refresh();
  1516.   return(GETSOURCES);
  1517. }
  1518.  
  1519. void
  1520. result_screen(question)
  1521. Question question;
  1522. {
  1523.   DocList doclist;
  1524.   DocumentID current_doc;
  1525.   int k;
  1526.   int doc_count;
  1527.   char fstr[STRINGSIZE];
  1528.   char *sourcename;
  1529.  
  1530.   doc_count = question->numresdocs;
  1531.  
  1532.   title_display("Search Results","Items:", doc_count);
  1533.  
  1534.   if (option_widetitles==FALSE) {
  1535.   mvprintw(1,2,"#    Score     Source                       Title                       Lines");
  1536.   sprintf(fstr,"%%03d:   [%%4d] (%%15.15s)  %%-%d.%ds %%5ld\n",COLS-40,COLS-40);
  1537.   }
  1538.   else {
  1539.   mvprintw(1,2,"#    Score                               Title                          Lines");
  1540.   sprintf(fstr,"%%03d:   [%%4d]  %%-%d.%ds %%5ld\n",COLS-22,COLS-22);
  1541.   }
  1542.  
  1543.   if (question->ResultDocuments != NULL) {
  1544.   k = 1;
  1545.   for ( doclist = question->ResultDocuments; doclist != NULL ;
  1546.       doclist = doclist->nextDoc) {
  1547.  
  1548.      current_doc = doclist->thisDoc;
  1549.      if (current_doc != NULL) {
  1550.        sourcename = firstphrase(trim_junk(current_doc->doc->source));
  1551.        if (NULL != strrchr(sourcename,'/')) {
  1552.           sourcename = strrchr(sourcename,'/');
  1553.           sourcename++;
  1554.        }
  1555.     if (option_widetitles==TRUE) 
  1556.        sprintf(select_line[k],fstr, k, current_doc->rawScore, 
  1557.            firstphrase(trim_junk(current_doc->doc->headline)),
  1558.                current_doc->doc->numLines);
  1559.        else 
  1560.        sprintf(select_line[k],fstr, k, current_doc->rawScore, sourcename,
  1561.            firstphrase(trim_junk(current_doc->doc->headline)),
  1562.                current_doc->doc->numLines);
  1563.       k++;
  1564.      }
  1565.    }
  1566.  }
  1567.   selection = result_selection;
  1568.   current_page = -1;
  1569.   max_selection=doc_count;
  1570.   page_length= MIN(LINES-6, doc_count);
  1571.   selection_display(NOSELECTION);
  1572. }
  1573.  
  1574. programstate
  1575. result_state(question)
  1576. Question question;
  1577. {
  1578.  
  1579.   DocList doclist;
  1580.   DocumentID current_doc;
  1581.   char user_key[STRINGSIZE];
  1582.   char digit_str[STRINGSIZE];
  1583.   int k,miss;
  1584.  
  1585.   selection_display(selection);
  1586.  
  1587.   digit_str[0]='\0';
  1588.   while(TRUE) {
  1589.     display_prompt("<space> selects, arrows move, w for keywords, s for sources, ? for help");
  1590.     user_key[0]=getch();
  1591.     switch(user_key[0]) {
  1592.     
  1593.     case 'H' : show_swais_history();
  1594.       state=UNKNOWN;
  1595.       return(SHOWRESULTS);
  1596.  
  1597.     case 'h' : ;
  1598.     case '?' : show_search_results_help();
  1599.       state=UNKNOWN;
  1600.       return(SHOWRESULTS);
  1601.          
  1602.       /* forgive me: hardwired arrow keys for vt100 since we're
  1603.      not using SysV curses and bsd curses lacks key support  */
  1604.     case '\033' : user_key[1]=getch();
  1605.       user_key[2]=getch();
  1606.       user_key[3]='\0';
  1607.       if (strcmp(user_key, "\033[A")) {
  1608.     selection_display(selection+1);
  1609.     result_selection = selection;
  1610.     break;
  1611.       }
  1612.       if (strcmp(user_key, "\033[B")) {
  1613.     selection_display(selection-1);
  1614.     result_selection = selection;
  1615.     break;
  1616.       }
  1617.  
  1618.     /* emacs <meta>v page previous */
  1619.     if (user_key[1]=='v') {
  1620.       selection_display(selection-page_length);
  1621.       result_selection = selection;
  1622.       break;
  1623.     }
  1624.  
  1625.     case 'o' : return(GETOPTIONS);
  1626.  
  1627.     case ','  : ;
  1628.     case 'v'  : view_result_info(findDoc(question->ResultDocuments,selection-1));
  1629.       state=UNKNOWN;
  1630.       return(SHOWRESULTS);
  1631.  
  1632.     case 'u'  : UseWaisDocument(question, findDoc(question->ResultDocuments,selection-1));
  1633.       break;
  1634.  
  1635.         case 10   : ;
  1636.         case ' '  : PipeWaisDocument(question, 
  1637.                 findDoc(question->ResultDocuments,selection-1), 
  1638.                 "${PAGER-more}");
  1639.                       if (option_pagerpause==TRUE) {
  1640.                   cbreak();
  1641.                   noecho();
  1642.                   PrintStatus("Press any key to continue"); 
  1643.                   getch();
  1644.                       }
  1645.               screenstart();
  1646.               state=UNKNOWN;
  1647.               return(SHOWRESULTS);
  1648.  
  1649.         case '|'  : ;
  1650.         case 'c'  : pipe_command(question);
  1651.               state=UNKNOWN;
  1652.               return(SHOWRESULTS);
  1653.  
  1654.         case 14   : ;
  1655.         case 'j'  : selection_display(selection+1); 
  1656.               result_selection = selection;
  1657.               break;
  1658.  
  1659.         case 16   : ;
  1660.         case 'k'  : selection_display(selection-1); 
  1661.               result_selection = selection;
  1662.               break;
  1663.  
  1664.         case 'q'  : return(LEAVEPROGRAM);
  1665.         case 's'  : return(GETSOURCES);
  1666.         case 'w'  : return(GETKEYWORDS);
  1667.                 
  1668.         case  18  : ;
  1669.         case '\f' : wrefresh(curscr);
  1670.                         break;
  1671.  
  1672.  
  1673.             case '/'  : user_key[0] = '\0';
  1674.               mvprintw(LINES-3,0,"Item Name: ");
  1675.               get_input_string(user_key);
  1676.             standend();
  1677.               mvprintw(LINES-3,0," ");
  1678.               clrtoeol();
  1679.             refresh();
  1680.              if (strlen(user_key)) {
  1681.                k=0; miss = TRUE;
  1682.                   for ( doclist = question->ResultDocuments; 
  1683.                  doclist != NULL ; doclist = doclist->nextDoc) {
  1684.                current_doc = doclist->thisDoc;
  1685.                    k++;
  1686.                if (current_doc != NULL)
  1687.                if (!strncasecmp(user_key,current_doc->doc->headline,
  1688.                 strlen(user_key))) {
  1689.                             selection_display(k);
  1690.                                 result_selection = k;
  1691.                 miss = FALSE;
  1692.                     break;
  1693.                               }
  1694.                     }
  1695.                           if (miss) PrintStatus("Unable to find item");
  1696.                         }
  1697.                         break;
  1698.  
  1699.      case 'm'  : mail_command(question);
  1700.                      state=UNKNOWN;
  1701.                  return(SHOWRESULTS);
  1702.  
  1703.      case 4    : ;
  1704.          case 22   : ; /* emacs ctrl-v */
  1705.      case 'J'  : selection_display(selection+page_length);
  1706.                      result_selection = selection;
  1707.              break;
  1708.  
  1709.      case 21   : ;
  1710.          case 'K'  : selection_display(selection-page_length); 
  1711.                      result_selection = selection;
  1712.                      break;
  1713.  
  1714.          default :   if (isdigit(user_key[0])) {
  1715.               digit_str[0] = user_key[0];
  1716.               digit_str[1] = '\0';
  1717.               mvprintw(LINES-3,0,"Item Number: ");
  1718.               get_input_string(digit_str);
  1719.              if (atoi(digit_str)!= 0) {
  1720.                     selection_display(atoi(digit_str));
  1721.                result_selection = selection;
  1722.                 }
  1723.             standend();
  1724.               mvprintw(LINES-3,0," ");
  1725.                         clrtoeol();
  1726.       }
  1727.     }
  1728.   } 
  1729. }
  1730.  
  1731. void
  1732. main(argc, argv)
  1733. int argc;
  1734. char **argv;
  1735. {
  1736.   Question question;
  1737.   SList asource;
  1738.   char msg[STRINGSIZE];
  1739.   char *getenv();
  1740.   char sourcename[STRINGSIZE];
  1741.   int i;
  1742.  
  1743.   if (command_name = (char*)rindex(argv[0], '/'))
  1744.     command_name++;
  1745.   else
  1746.     command_name = argv[0];
  1747.  
  1748.   command[0]='\0';
  1749.  
  1750.   sdir = cdir = NULL;
  1751.   keywords[0] = 0;
  1752.   sourcename[0] = 0;
  1753.  
  1754.   maxDocs = 40;
  1755.  
  1756.   i = 1;
  1757.   for(; i < argc; i++) {
  1758.     if (*argv[i] == '-') {
  1759.       argv[i]++;
  1760.       switch (*argv[i]) {
  1761.       case 'C':
  1762.     i++;
  1763.     if(i >= argc) {
  1764.       fprintf(stderr, "Too few arguments: common source directory missing.\n");
  1765.       exit(1);
  1766.       }
  1767.     cdir = argv[i];
  1768.     break;
  1769.       case 'S':
  1770.     i++;
  1771.     if(i >= argc) {
  1772.       fprintf(stderr, "Too few arguments: user source directory missing.\n");
  1773.       exit(1);
  1774.       }
  1775.     sdir = argv[i];
  1776.     break;
  1777.       case 's':
  1778.     i++;
  1779.     if(i >= argc) {
  1780.       fprintf(stderr, "Too few arguments: source name missing.\n");
  1781.       exit(1);
  1782.       }
  1783.         sprintf(sourcename,"%s.src", argv[i]);
  1784.     break;
  1785.       case 'h':
  1786.     usage(argv[0]);
  1787.     exit(0);
  1788.     break;
  1789.       default:
  1790.     fprintf(stderr, "Unknown option: %s.\n", argv[i]);
  1791.     exit(1);
  1792.       }
  1793.     }
  1794.     else {
  1795.       if((strlen(keywords) + strlen(argv[i]) + 1) < STRINGSIZE) {
  1796.         if (strlen(keywords)) strcat(keywords, " ");
  1797.     strcat(keywords, argv[i]);
  1798.       }
  1799.     }
  1800.   }
  1801.       
  1802.    if(sdir == NULL) {
  1803.       if((sdir = getenv("WAISSOURCEDIR")) == NULL) {
  1804.      sprintf(msg, "%s/wais-sources", getenv("HOME"));
  1805.      sdir = s_strdup(msg);
  1806.       }
  1807.    }
  1808.    sdir = fixdirname(sdir);
  1809.    ReadSourceDirectory(sdir, TRUE);
  1810.  
  1811.    if(cdir == NULL) {
  1812.       if((cdir = getenv("WAISCOMMONSOURCEDIR")) == NULL) {
  1813.      strcpy(msg, COMMON_SOURCE_DIR);
  1814.      cdir = s_strdup(msg);
  1815.       }
  1816.    }
  1817.    cdir = fixdirname(cdir);
  1818.    ReadSourceDirectory(cdir, TRUE);
  1819.  
  1820.   Refresh_sources();
  1821.  
  1822.   strcpy(options[1].name, "widetitles");
  1823.   strcpy(options[1].desc, "Show wide Item titles on Results Screen by omitting source name"); 
  1824.   options[1].type = OPTION_BOOLEAN;
  1825.   options[1].var.intptr  = &option_widetitles;
  1826.   options[1].update = null;
  1827.  
  1828.   strcpy(options[2].name, "sortsources");
  1829.   strcpy(options[2].desc, "Display sources sorted alphabetically rather than directory order");
  1830.   options[2].type = OPTION_BOOLEAN;
  1831.   options[2].var.intptr = &option_sortsources;
  1832.   options[2].update = Refresh_sources;
  1833.  
  1834.   strcpy(options[3].name, "sourcedir");
  1835.   strcpy(options[3].desc, "Personal WAIS source directory containing *.src description files");
  1836.   options[3].type = OPTION_STRING;
  1837.   options[3].var.charptr = sdir;
  1838.   options[3].update = Refresh_sources;
  1839.  
  1840.   strcpy(options[4].name, "commondir");
  1841.   strcpy(options[4].desc, "Common WAIS source directory containing *.src description files");
  1842.   options[4].type = OPTION_STRING;
  1843.   options[4].var.charptr = cdir;
  1844.   options[4].update = Refresh_sources;
  1845.  
  1846.   strcpy(options[5].name, "pagerpause");
  1847.   strcpy(options[5].desc, "Pause after displaying a document via the external pager");
  1848.   options[5].type = OPTION_BOOLEAN;
  1849.   options[5].var.intptr  = &option_pagerpause;
  1850.   options[5].update = null;
  1851.  
  1852.   strcpy(options[6].name, "maxitems");
  1853.   strcpy(options[6].desc, "Maximum items (documents) returned in a single query");
  1854.   options[6].type = OPTION_INTEGER;
  1855.   options[6].var.intptr  = &maxDocs;
  1856.   options[6].update = null;
  1857.  
  1858.    question = (Question)s_malloc(sizeof(_Question));
  1859.    question->numsources=0;
  1860.    question->modified=FALSE;
  1861.  
  1862.    screenstart();
  1863.  
  1864.    state = UNKNOWN;
  1865.  
  1866.    if (sourcename[0] != 0)
  1867.      for(asource = Sources; asource != NULL; asource = asource->nextSource)  
  1868.        if (!strcmp(sourcename, asource->thisSource->name)) {
  1869.      Selected_Sources = AddSource(Selected_Sources, asource->thisSource);
  1870.      question->numsources++;
  1871.          question->modified=TRUE;
  1872.        }
  1873.  
  1874.    if (keywords[0]!='\0') {
  1875.      strcpy(question->keywords,keywords);
  1876.      question->modified = TRUE;
  1877.    }
  1878.  
  1879.    new_state = nextstate(question);
  1880.  
  1881.    if (setjmp(main_env)!=0) {
  1882.       state=UNKNOWN;
  1883.       new_state=GETSOURCES;
  1884.    }
  1885.  
  1886.    while (TRUE) {
  1887.    
  1888.       if (new_state!=state) {
  1889.         if ((new_state / 10) != (state / 10)) {
  1890.           clear();
  1891.           switch (new_state) {
  1892.          case GETSOURCES: ;
  1893.          case GETKEYWORDS: ;
  1894.          case MAKEQUERY: source_screen(question); break;
  1895.          case SHOWRESULTS: result_screen(question); break;
  1896.          case GETOPTIONS : option_screen(question); break;
  1897.          case LEAVEPROGRAM: break; 
  1898.           }
  1899.         }
  1900.         else {
  1901.        selection_display(NOSELECTION);
  1902.        display_prompt("");
  1903.         }
  1904.         state = new_state;
  1905.       }
  1906.  
  1907.       switch (state) {
  1908.  
  1909.     case MAKEQUERY: 
  1910.        new_state = makequery_state(question);
  1911.        break;
  1912.  
  1913.     case GETKEYWORDS: ;
  1914.        new_state = keyword_state(question);
  1915.        break;
  1916.  
  1917.     case GETSOURCES: 
  1918.        new_state = source_state(question);
  1919.        break;
  1920.  
  1921.     case SHOWRESULTS:
  1922.        new_state = result_state(question);
  1923.        break;
  1924.  
  1925.     case GETOPTIONS:
  1926.        new_state = option_state(question);
  1927.        break;
  1928.  
  1929.     case LEAVEPROGRAM:
  1930.        screenend();
  1931.        exit(0);
  1932.       }
  1933.     }
  1934. }
  1935.